home *** CD-ROM | disk | FTP | other *** search
- .key STARTUP,STACK/K,DEFDIR/K,SHELL/K
- .bra [
- .ket ]
- ;
- ; Skript zum Starten von Shells. Als Parameter wird
- ; ein Start-Skript akzeptiert, das nach dem normalen
- ; Shell-Startup ausgeführt wird.
- ;
- ; Als CON-Window-Angabe wird die ENV-Variable CONDIM
- ; ausgewertet, die zum Beispiel folgenden Inhalt haben
- ; könnte:
- ; KCON:20/170/600/230
- ;
- if NOT "[STARTUP]" EQ ""
- if exists "[STARTUP]"
- join S:Shell-Startup "[STARTUP]" as t:[$$]Startup.script
- else
- copy S:Shell-Startup to t:[$$]Startup.script
- endif
- else
- copy S:Shell-Startup to t:[$$]Startup.script
- endif
-
- if "[STACK]" NOT EQ ""
- echo >>T:[$$]Startup.script "STACK [STACK]"
- endif
- if "[DEFDIR]" NOT EQ ""
- echo >>T:[$$]Startup.script "CD [DEFDIR]"
- endif
-
-
- if "[SHELL]" NOT EQ ""
- "[SHELL]" $CONDIM/Shell/AUTO/CLOSE FROM t:[$$]Startup.script
- else
- newshell $CONDIM/Shell/AUTO/CLOSE FROM t:[$$]Startup.script
- endif
-
- ; Temporäre Datei löschen
- lab loeschmich
-
- wait 2 sec
- delete >NIL: t:[$$]Startup.script
- if warn
- skip back loeschmich
- endif
-
-